home *** CD-ROM | disk | FTP | other *** search
/ Giga Games 1 / Giga Games.iso / net / usenet / volume9 / umoria3 / patch1b < prev    next >
Encoding:
Text File  |  1990-06-08  |  53.2 KB  |  1,231 lines
  1. Path: uunet!zephyr.ens.tek.com!tekred!saab!billr
  2. From: billr@saab.CNA.TEK.COM (Bill Randle)
  3. Newsgroups: comp.sources.games
  4. Subject: v10i016:  umoria3 - single player dungeon simulation (ver. 5.2), Patch1b
  5. Message-ID: <5723@tekred.CNA.TEK.COM>
  6. Date: 5 Jun 90 16:39:04 GMT
  7. Sender: news@tekred.CNA.TEK.COM
  8. Lines: 1220
  9. Approved: billr@saab.CNA.TEK.COM
  10.  
  11. Submitted-by: wilson@ernie.Berkeley.EDU (Jim Wilson)
  12. Posting-number: Volume 10, Issue 16
  13. Archive-name: umoria3/Patch1b
  14. Patch-To: umoria3: Volume 9, Issue 55-86
  15.  
  16.  
  17. #! /bin/sh
  18. # This is a shell archive.  Remove anything before this line, then unpack
  19. # it by saving it into a file and typing "sh file".  To overwrite existing
  20. # files, type "sh file -c".  You can also feed this as standard input via
  21. # unshar, or by typing "sh <file", e.g..  If this archive is complete, you
  22. # will see the following message at the end:
  23. #        "End of archive 2 (of 3)."
  24. # Contents:  mac/MakeFile.hqx mac/dumpres/MakeFile.hqx
  25. #   mac/scrnmgr/ScrnMgr.doc source/player.c
  26. # Wrapped by wilson@atlas on Wed May 30 14:20:00 1990
  27. PATH=/bin:/usr/bin:/usr/ucb ; export PATH
  28. if test -f 'mac/MakeFile.hqx' -a "${1}" != "-c" ; then 
  29.   mv -f mac/MakeFile.hqx mac/MakeFile.hqx.old
  30. fi
  31. echo shar: Extracting \"'mac/MakeFile.hqx'\" \(8517 characters\)
  32. sed "s/^X//" >'mac/MakeFile.hqx' <<'END_OF_FILE'
  33. X(This file must be converted with BinHex 4.0)
  34. X:#%eKDf9'D@aP!&4&@&408&-J!3!!!"E0!!!"IRGE3dp`G'P[ER-J23N*,@)b)#e
  35. Xc)(Y%C@CKG@adI5!YC#"038-J,@eLCb"[EL!YFhPY)'pZ$3e5Fh*M6h"dD@pZFb!
  36. Xp#5eL-L!YE5!YC#"58e*$)#eN)%e"3`d0,Q-ZE`N*#F3*,Q-0#AY$I5"l3dp`G'P
  37. X[ER0p)(Y%CA"%DA*pHd4PCQ&eE(4p,Q-J,@mJHe4KFQG%DA*pHd4PCQ&eE(4p,Q-
  38. XZE`d*$5jbFh*M,Qm*#3R%#5jM$3Pl3hdJHe*cFQ02F(4TEfjcI5"l4'9`4'PbIAY
  39. X%C@CKG@adI5jM)#e[)(Y8BA*R4'PbIAY%C@CKG@adI5jbFh*M,Qm0#3e2BQTPBh4
  40. Xc)$d*#@eKBbjM,QmJYJd*#3N*E@&MBfpZCLjM,QmJYJd*#3N*E@&MD'9XF#jM,Qm
  41. XJYJd*#3N*E@&MFf0[FQ8ZBbj[),B0#3N*#@eKBh*cFQ-ZBbj[),B0#3N*#@eKD@i
  42. XZBbj[),B0#3N*#@0bC@&dC5jM,QmJYJd*#3N*Bh*PBA4eFQ8ZBbj[),B0#3N*#@4
  43. XPBA4S,Q-ZEb#f$3N*#3PNCA0M,Q-ZEb#f$3N*#3PNG@jRC@pZ,Q-ZEb#f$3N*#3P
  44. XPBA3ZBbj[),B0#3N*#@CTE'9c,Q-ZEb#f$3N*#3PRC@jPFQ&dC5jM,QmJYJd*#3N
  45. X*D'9XF#jM,QmJYJd*#3N*E@&MD@mZBbj[),B0#3N*#@eKCfPM,Q-ZEb#f$3N*#3P
  46. XYDA0M-5jM,QmJYJd*#3N*E@PcBc)ZBbj[),B0#3N*#@e[ER0dCA*c,Q-ZEb#f$3N
  47. X*#3PYEh*TB6%ZBbj[),B0#3N*#@e[FQPK-LjM,QmJYJd*#3N*F'aKH@9b,Q-ZEb#
  48. Xf$3N*#3P`Eh4TEfjc,Q-ZEb#f$3N*#3P`FQ&jCA)ZBbj[),B0#3N*#A*PBf&XE#j
  49. XM,QmJYJd*#3N*FQjN,Q-ZEb#f$3N*#3PcBACP,Q-ZEb#f$3N*#3PcBh*[E'ac,Q-
  50. XZEb#f$3N*#3PcCA4c,Q-ZEb#f$3N*#3PcD@GZB@ac,Q-ZEb#f$3N*#3PcF'9XE(-
  51. XZBbj[),B0#3N*#A0dB@CQFbjM,QmJYJd*#3N*Fh4[FQ8a,Q-ZEb#f$3N*#3PcG'p
  52. XbC6)ZBbj[),B0#3N*#A4KBQaPFbjM,QmJYJd*#3N*G(*PBA0eFQ8ZBbj[),B0#3N
  53. X*#A9ZC'9Q,Q-ZEb#f$3N*#3PfBA*TB@*XC5jM,QmJYJd*#3N*Gf&ZC(-ZBbj[),B
  54. X0#3N*#AGTHQ&bC#jM,Qm0#3N*#3e5Fh*MFb!p#3N*E@&MC'&dB5jbFh*M,QmJYJd
  55. X*#3N*E@&MFR0bBbjbFh*M,QmJYJd*#3N*E@pZFh4PFR-ZFR0bBbj[),B0#3N*#A"
  56. XXBAPPFLjbFh*M,QmJYJd*#3N*G'&LE'9c,R*cFQ-ZEb#f$3N*#3PdFQ9KFh9bC5j
  57. XbFh*M,QmJYJd*#3N*GQ&bD@&LE'8ZFR0bBbj[$3N*#3N09'9iG(-J23N*#@jPGh-
  58. XJYJd*#3N*Eh*TCf0YC(-ZD'a`),B0#3N*#@phDATME@4c,QKXF##f$3N*#3PbEfG
  59. XXBfeNFbjSE(!JYJd*#3N*FRGTHQ0YC(-ZD'a`),B0#3N*#ACPFR0TEfiZD'a`),B
  60. X0#3N*#AGPE'0[E@8ZD'a`$3N*#3N0)b"+9cSJ3e*eER4TE@8ZEb"KEQ3J3dPZG'9
  61. XbCQ&MC5j[)'4PE'9dC@3JBA-J55"hBA-JG'pXC#"dD'&d)(4SCANJBA*P)'pLFfp
  62. XXCA4P$8e[FQPK#3N*a-3*He*cFQ0cI3d*6'PZDb!YE@&`)#eh)#ed)#G08&08*b!
  63. XYBb!R69"6)#Hf$3N*,A0c)$)`-$!`-#!YFh*d),B0#3Pl8R0bBh0p),B0#3NLHd0
  64. X-D@*bBA*TCA0p)N4eEA"5CA-ZEb#f$3N*)RY-D@*bBA*TCA0p)R0dG@*c,QmJYJd
  65. X*#5*l6'PLFQ&bD@9cI5*5G@jdD@eP,QmJYJd*#5*l6'PLFQ&bD@9cI5**ER4PFQC
  66. XKBf8ZEb#f$3N*)RY$6'PLFQ&bD@9cI5*6G'4$6'PL,QmJYJd*#5*l3daTBR*KFQP
  67. XPFhdL3e0"6N9-D@)ZEb#f$3N*)RY$6'PLFQ&bD@9cI5*0BA4S,QmJYJd*#5*l6'P
  68. XLFQ&bD@9cI5*8EfpX6'PLFbj[),B0#3Nq)'eKBf4KG'%ZE@&`$3P-D@jV,NpeG#"
  69. X0Eh*TB3d*4'9XCA4P)%aTEQXZ6h9d$3e0Eh*TB5!*#3R%a#!*HdpLDQ9MG(0p$3P
  70. X-D@jV)#eYBA!J,AFJ,A3J*d&38%`R)#eM)#G08NP"*lB0#3NYH#"YEh*TB5jiFQ9
  71. XQ),B0#3NYFhPY)'pZ),B0#3NYEb"0Eh*TB5#f$3N*,A*K)$de-L#f$3N*,A0R)%e
  72. XKD@ipE@&M,'eKD@iXFQjN,(0TCfjKE(-XG@jNC@BXE@&MFR0bBb#f$3N*,A*K)%e
  73. XKD@ip06)JYJd*#5ecCb"*6ceYB@0TEb#f$3N*,A*K)%P2268b),B0#3NYFfFJ3A"
  74. X`6@9ZG6eYB@0SC@a`,'eKBf0[EQBXE@&MFf0[FQ8JYJd*#5ebB5""F("0C@je26-
  75. Xb),B0#3NYFfFJ3h*PBA4P2@0bC@&dC5#f$3N*,A*K)%0bC@&dC6dc-L#f$3N*,A0
  76. XR)%0bC@&dGA*P2@0bC@&dGA*P),B0#3NYFQ%J3h*PBA4eFQ8p-c)JYJd*#5ecCb"
  77. X%C@&dD$eNC@&dD##f$3N*,A*K)%4PBA4S26-b),B0#3NYFfFJ4(9ZCf9[EMeNG@j
  78. XRC@pZ),B0#3NYFQ%J4(9ZCf9[EMde-L#f$3N*,A0R)%9KG$ePBA3JYJd*#5ebB5"
  79. X&BA3p-c)JYJd*#5ecCb"'D@aPFceQD@aPFb#f$3N*,A*K)%CTE'9c26-b),B0#3N
  80. XYFfFJ4f9ZCA*KG'8pCf9ZCA*KG'8JYJd*#5ebB5"(C@jPFQ&dC6dc-L#f$3N*,A0
  81. XR)%KPE(!pD'9XF##f$3N*,A*K)%KPE(!p-c)JYJd*#5ecCb"0B@GTBceYB@GTBb#
  82. Xf$3N*,A*K)%eKCfPM26-b),B0#3NYFfFJ6@PcBc%pE@PcBc%XC'9cBbacCA4c),B
  83. X0#3NYFQ%J6@PcBc%p06)JYJd*#5ecCb"0DA0M-MeYDA0M-L#f$3N*,A*K)%eTFf-
  84. Xb268b),B0#3NYFfFJ6@pbD@%a2@e[FQPK-5#f$3N*,A*K)%e[FQPK-6de-L#f$3N
  85. X*,A0R)%e[FQPK-MeYEh*TB6)JYJd*#5ebB5"0Eh*TB6)p06)JYJd*#5ecCb"3FQ&
  86. XjCA)pF(*KH@9b),B0#3NYFQ%J8(*KH@9b26-b),B0#3NYFfFJ8'pdD@pZFce`Eh4
  87. XTEfjc),B0#3NYFQ%J8'pdD@pZFcdc-L#f$3N*,A0R)&*PBf&XE$ebC@0KE'`JYJd
  88. X*#5ebB5"5C@0KE'`p-c)JYJd*#5ecCb"6BACP2A0KGQ8JYJd*#5ebB5"6BACP26-
  89. Xb),B0#3NYFfFJ8f0bEfaXFcecBh*[E'ac),B0#3NYFQ%J8f0bEfaXFcdc-L#f$3N
  90. X*,A0R)&0`C@aXFcecF'9XE(-JYJd*#5ebB5"6F'9XE(-p06)JYJd*#5ecCb"6G'&
  91. XQCR-pFh4KCQCc),B0#3NYFQ%J8h4KCQCc26-b),B0#3NYFfFJ8h4[FQ8pFh4[FQ8
  92. Xa,(0dEh*P-L#f$3N*,A*K)&0dEh*P26-b),B0#3NYFfFJ9f&ZC(-pGf&ZC(-JYJd
  93. X*#5ebB5"AB@jNFcdc-L#f$3N*,A0R)>HQ&bC$ehDATKFQ3JYJd*#5ebB5"ADAT
  94. XKFQ3p-c)JYJd*#AY2BQTPBh4cI5#f$3N*)RY$6'PLFQ&bD@9cI5*6Bh*Z6@Gb,Qm
  95. XJYJd*#5*l3daTBR*KFQPPFhdL4(9YF&*PFbj[),B0#3NLHd0-D@*bBA*TCA0p)N0
  96. X5G@jdD@eP,QmJYJd*#5*l6'PLFQ&bD@9cI5**ER4PFQCKBf8ZEb#f$3N*)RY$6'P
  97. XLFQ&bD@9cI5*6G'4$6'PL,QmJYJd*#5*l3daTBR*KFQPPFhdL3e0"6N9-D@)ZEb#
  98. Xf$3N*)RY$6'PLFQ&bD@9cI5*0BA4S,QmJYJd*#5*l3daTBR*KFQPPFhdL3dPZG'9
  99. XbCQ&MC5j[),B0#3Nq)'e[FQPK,QeKF!d*8f9d4QPXC5!YB5"#)%e[FQPK$3e0Eh*
  100. XTB3N*#F6%#@e[FQPK,R)0#9*PHL"YEh*TB5jb)#eKF("PEQ3J,@mJ6@pbD@%J,A-
  101. XJHe**EQ0XG@4PFhd0#3e0Eh*TB3N*#F6%#AY8CAKdFhd0#8C[FL"'D@aP6Q&YC5"
  102. XTEL"l9'9iG(0p$3N*5@BJ)RY'D@aP6Q&YCAdL)$eq)#r&1LM&+DJa,`d*#3P&BfK
  103. X[)#)MHkJaI5)0#3P&E(0P$3N*#89MD'mJ)L0l4QPXC8jKE@9p)Jd*#89ZC!d*#80
  104. XKG'9ZBA4P)#*l4QPXC8jKE@9p)Jd*4@jN)(`J4@jdB@)J,@3J1#!YG#!`)$iJ6@p
  105. XbD@%0#90PG%CTE'8J,@-J*de558%R)#ed)#G"8&"-*b"0Eh*TB3d*$5-J4QPXCA-
  106. XJGbp[)#)ZD#)JC'9`C@jNC@jMD@9c)#dY$5-*E@&MBfpZCLjM$5-*E@&MD'9XF#j
  107. XM$3eYB@-ZBbj[#3N*#F3*BfpZFh4KER3ZD#"MEfjQD@FZD#"dHA"PFbjS)'9iG'9
  108. XbER-ZD#"YB@0bFh*M,QJ0E@&MFf0[FQ8ZBbj[#3R%#@0[ER0dB@jd,QJJBfpZCQP
  109. XR,QJJG(P`CA-ZD#"PH(4PFQjc,QJ0E@&MFR0bBbjM,Qm*#3R%#@0[ER0dB@jd,QJ
  110. XJBfpZCQPR,QJJG(P`CA-ZD#"PH(4PFQjc,QJJE@&MFR0bBbjS$3eYB@PZ,Q-ZE`N
  111. X*#F3*BfpZFh4KER3ZD#"MEfjQD@FZD#"dHA"PFbjS)'9iG'9bER-ZD!eMFQ9KG'8
  112. XZBbj[#3N*a!PMEfjcG'&ZG#jS)'0[EQCTCbjS)(4jF'9c,QJJCAKdCA*ZFbjS$@0
  113. XbC@&dGA*P,Q-ZE`N*a!PMEfjcG'&ZG#jS)'0[EQCTCbjS)(4jF'9c,QJJCAKdCA*
  114. XZFbjS$@4PBA4S,Q-ZE`N*#F3*BfpZFh4KER3ZD#"MEfjQD@FZD#"dHA"PFbjS)'9
  115. XiG'9bER-ZD!eNCA0M,Q-ZE`N*#F3*BfpZFh4KER3ZD#"MEfjQD@FZD#"dHA"PFbj
  116. XS)'9iG'9bER-ZD!eNG@jRC@pZ,Q-ZE`N*#F3*BfpZFh4KER3ZD#"MEfjQD@FZD#"
  117. XdHA"PFbjS)'9iG'9bER-ZD!ePBA3ZBbj[#3N*#F3*BfpZFh4KER3ZD#"MEfjQD@F
  118. XZD#"dHA"PFbjS)'9iG'9bER-ZD!eQD@aPFbjM,Qm*#3R%#@0[ER0dB@jd,QJJBfp
  119. XZCQPR,QJJG(P`CA-ZD#"PH(4PFQjc,QJ0Cf9ZCA*KG'8ZBbj[#3R%#@0[ER0dB@j
  120. Xd,QJJBfpZCQPR,QJJG(P`CA-ZD#"PH(4PFQjc,QJ0D'9XF#jM,Qm*#3R%#@0[ER0
  121. XdB@jd,QJJBfpZCQPR,QJJG(P`CA-ZD#"PH(4PFQjc,QJ0E@&MD@mZBbj[#3N*a!P
  122. XMEfjcG'&ZG#jS)'0[EQCTCbjS)(4jF'9c,QJJCAKdCA*ZFbjS$@eKCfPM,Q-ZE`N
  123. X*#F3*BfpZFh4KER3ZD#"MEfjQD@FZD#"dHA"PFbjS)'9iG'9bER-ZD!eYDA0M-5j
  124. XM,Qm*#3R%#@0[ER0dB@jd,QJJBfpZCQPR,QJJG(P`CA-ZD#"PH(4PFQjc,QJ0E@P
  125. XcBc)ZBbj[#3N*a!PMEfjcG'&ZG#jS)'0[EQCTCbjS)(4jF'9c,QJJCAKdCA*ZFbj
  126. XS$@e[ER0dCA*c,Q-ZE`N*a!PMEfjcG'&ZG#jS)'0[EQCTCbjS)(4jF'9c,QJ0E@p
  127. XbD@%a,Q-ZE`N*#F3*BfpZFh4KER3ZD#"MEfjQD@FZD#"dHA"PFbjS)'9iG'9bER-
  128. XZD!eYEh*TB6)ZBbj[#3N*a!PMEfjcG'&ZG#jS)'0[EQCTCbjS)(4jF'9c,QJJCAK
  129. XdCA*ZFbjS$A"XBAPPFLjM,Qm*#3R%#@0[ER0dB@jd,QJJBfpZCQPR,QJJG(P`CA-
  130. XZD!e`Eh4TEfjc,Q-ZE`N*#F3*BfpZFh4KER3ZD#"MEfjQD@FZD#"dHA"PFbjS)'9
  131. XiG'9bER-ZD!e`FQ&jCA)ZBbj[#3N*a!PMEfjcG'&ZG#jS)'0[EQCTCbjS)(4jF'9
  132. Xc,QJJCAKdCA*ZFbjS$A*PBf&XE#jM,Qm*#3R%#@0[ER0dB@jd,QJJBfpZCQPR,QJ
  133. XJG(P`CA-ZD#"PH(4PFQjc,QJ0FQjN,Q-ZE`N*#3R%#@0[ER0dB@jd,QJJ)#!J)#!
  134. XJ)#!JG(P`CA-ZD!ecBACP,Q-ZE`N*#F3*BfpZFh4KER3ZD#"MEfjQD@FZD#"dHA"
  135. XPFbjS)'9iG'9bER-ZD!ecBh*[E'ac,Q-ZE`N*#F3*BfpZFh4KER3ZD#"MEfjQD@F
  136. XZD#"dHA"PFbjS)'9iG'9bER-ZD!ecCA4c,Q-ZE`N*#F3*BfpZFh4KER3ZD#"MEfj
  137. XQD@FZD!ecD@GZB@ac,Q-ZE`N*#F3*BfpZFh4KER3ZD#"MEfjQD@FZD#"dHA"PFbj
  138. XS)'9iG'9bER-ZD!ecF'9XE(-ZBbj[#3N*a!PMEfjcG'&ZG#jS)'0[EQCTCbjS)(4
  139. XjF'9c,QJJCAKdCA*ZFbjS$A0dB@CQFbjM,Qm*#3R%#@0[ER0dB@jd,QJJBfpZCQP
  140. XR,QJJG(P`CA-ZD#"PH(4PFQjc,QJ0Fh4[FQ8a,Q-ZE`N*#F3*BfpZFh4KER3ZD#"
  141. XMEfjQD@FZD#"dHA"PFbjS)'9iG'9bER-ZD!ecG'pbC6)ZBbj[#3N*a!PMEfjcG'&
  142. XZG#jS)'0[EQCTCbjS)(4jF'9c,QJJCAKdCA*ZFbjS$A4KBQaPFbjM,Qm*#3R%#@0
  143. X[ER0dB@jd,QJJBfpZCQPR,QJJG(P`CA-ZD!edFQ9KFh9bC5jM,Qm*#F3*BfpZFh4
  144. XKER3ZD#"MEfjQD@FZD#"dHA"PFbjS$A9ZC'9Q,Q-ZE`N*#F3*BfpZFh4KER3ZD#"
  145. XMEfjQD@FZD#"dHA"PFbjS)'9iG'9bER-ZD!efBA*TB@*XC5jM,Qm*#F3*BfpZFh4
  146. XKER3ZD#"MEfjQD@FZD#"dHA"PFbjS$AGKEQ4c,Q-ZE`N*#F3*BfpZFh4KER3ZD#"
  147. XMEfjQD@FZD#"dHA"PFbjS)'9iG'9bER-ZD!ehDATKFQ3ZBbj[#3N*a!PMEfjcG'&
  148. XZG#jS)'0[EQCTCbjS)(4jF'9c,QJJCAKdCA*ZFbjS$3eYB@0NBA4K,R*cFQ-ZE`N
  149. X*a!NJ)#!J)#!J)#!J)#!J)#!J)#!J)#!J)#!J)#!J)#!J)#!J)#!J)'eKBh*cFQ-
  150. XZD!eYB@0bFh*M,R*cFQ-ZE`N*a!PMEfjcG'&ZG#jS)'0[EQCTCbjS)(4jF'9c,QJ
  151. XJCAKdCA*ZFbjS)'eKBh*cFQ-ZD!eYEfjcG'9bFbjbFh*M,Qm*#F3*BfpZFh4KER3
  152. XZD#"MEfjQD@FZD#"dHA"PFbjS$A"XBAPPFLjbFh*M,Qm*#F3*BfpZFh4KER3ZD#"
  153. XMEfjQD@FZD#"dHA"PFbjS$A4KBQaPFbjbFh*M,Qm*#F3*BfpZFh4KER3ZD#"MEfj
  154. XQD@FZD#"dHA"PFbjS$A4bC@&cGA*P,R*cFQ-ZE`N*a!PMEfjcG'&ZG#jS)'0[EQC
  155. XTCbjS)(4jF'9c,QJ0GQ&bD@&LE'8ZFR0bBbj[#3R%#@0[ER0dB@jd,QJJBfpZCQP
  156. XR,QJJG(P`CA-ZD!fU&J!!!3!!!!&-!!!!6!!!!$)!!!!F!%!!3!#D!F3!!3%!!!!
  157. X!!!!!!))(3fpZCQPbE3K0B@YP4QPXC5d#!!!!9%9B9%e38b!"!!!!!%!!!!!!!!"
  158. X849K869"6)!%!!!!!3!!!!!!!!!!!!!!!!!!!!!!!!++&Jjm!!"E0!!!"IJ#$!!!
  159. X!!*3!"`!!!!!!M!%!!*i"4J3$6Q9h!!!!!!!!TJ%!!,J"4J3'3f&ZBf9X!!!!!!#
  160. X0!!i!R3#kL!Y1CAFJ9fPZC'ph1J!!!!!!!"S!h`!Z!9Z!!!!!!!!!0!%!!%B"4J3
  161. X&4@TPBh3!!!!!!!"1!3!!B!&'"!9%FQPfC3!!!!!!!!")!!P0EfjKBfm!!!!!!!!
  162. X!!!!!!!!!!!!!!!!!!!!!!!!!!!!'!!3!2J!2!G-#F`!q!!m"d`*cSS@5q3!!&Xd
  163. X!!"E0!!!6e`%!!!!"!!!!!8`!!!"-!!!!-J!Z#8!)&J!!!"`!-J!!69"68J!!!!S
  164. X$lIrr!!!!!!![$)42eJ:
  165. END_OF_FILE
  166. if test 8517 -ne `wc -c <'mac/MakeFile.hqx'`; then
  167.     echo shar: \"'mac/MakeFile.hqx'\" unpacked with wrong size!
  168. fi
  169. # end of 'mac/MakeFile.hqx'
  170. if test -f 'mac/dumpres/MakeFile.hqx' -a "${1}" != "-c" ; then 
  171.   mv -f mac/dumpres/MakeFile.hqx mac/dumpres/MakeFile.hqx.old
  172. fi
  173. echo shar: Extracting \"'mac/dumpres/MakeFile.hqx'\" \(1515 characters\)
  174. sed "s/^X//" >'mac/dumpres/MakeFile.hqx' <<'END_OF_FILE'
  175. X(This file must be converted with BinHex 4.0)
  176. X:#%eKDf9'D@aP!&4&@&408&-J!3!!!!+E!!!"IV2*3dp`G'P[ER-J25!YE@*R)'p
  177. XZ$8a2F(4TEfjc)$d0$84eEA"5CA-ZEb$%)%4eEA"5CA-ZB`d*3b"l3dp`G'P[ER0
  178. Xp)#e[)%4eEA"5CA-ZEb"%G@e`8Q9c,Q-0$84eEA"5CA08CA0d,Q-ZEb$%)%4eEA"
  179. X5CA08CA0d,Q-0#8-JHd02F(4TEfjcI5"%G@e`8Q9c9'9cG#jM$3N06f*UC@0dFb!
  180. Xp)%4eEA"5CA08CA0d,Q-ZEb"%G@e`8Q9c,Qm0$5-J5PFk)%05G@jdD@eP,QmJB@j
  181. XN)%0*ER4PFQCKBf8ZEb"bC@e[GQ9N)(0TEQ0P)%NJGf&c)(4[E'3JG'KKG#"dD'9
  182. Xj)'&bC5"[BR0[E'9dC3e%G@e`8Q9c9'9cG#$%a#"l6f*UC@0dFhd0#8aTEQXJHda
  183. X2F(4TEfjcI5!YGb!YBb!R69"6)#FJ,A3J69"69##f$3N*HdpLDQ9MG(0p),B0#3N
  184. XLHdaTBR*KFQPPFhdLFh4eBR-ZEb#f$3N*)RY-D@*bBA*TCA0p)P*eER4TE@8ZEb#
  185. Xf$3N*)RY-D@*bBA*TCA0p)NPZG'9bCQ&MC5j[),B0#3NLHd0-D@*bBA*TCA0p)P0
  186. XdC%0-D@)ZEb#f$3N*)RY$6'PLFQ&bD@9cI5*$8d&148aTBLj[),B0#3NLHd0-D@*
  187. XbBA*TCA0p)NeKG'JZEb#f$3N*)RY-D@*bBA*TCA0p)P4[Efa-D@*c,QmJYJd*#5e
  188. X[)%4eEA"5CA08CA0d$3e*ER0dB@aX)-3J4(9YF&*PFbjS)%4eEA"5CA-ZE`d*4(9
  189. X`E'PMBA4P)#ej)%4eEA"5CA-ZD#!LHd0*EQ0XG@4PFhdL$3P%GA"XD@0KG'8J,AN
  190. XJ4(9YF&*PFbj[)#*l3daTBR*KFQPPFhdL$6Yi!!!"!!!!!8`!!!"-!!!!-N4eEA"
  191. X5CA08CA0d,QeKDf80)b!J)&4KFQGPG$SJ)#!J$8eKDf9'D@aP,Q4eEA!#!!!!9%9
  192. XB9%e38b!!!!!!!!!!!&4&@&408&-J!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!SS@
  193. X$J3!!!TX!!!&qBA*MD#!e,#!a16Jj)$%b1M)a1M3d$3e%G@e`8Q9c9'9cG#jM,Qm
  194. XJa#"%G@e`8Q9c9'9cG#jYB@YP)%4eEA"5CA08CA0d,Q-0#8-J4(9YF&*PFe4PFh3
  195. XZB`e%G@e`8Q9c,Q-ZEb$%)%4eEA"5CA08CA0d,QeKDf8J4(9YF&*PFbjM$3!!!%J
  196. X!#8e[EQ&ME`##!!-!#3!+Irm!$J!*!!Trr`#(!)%!JRrr!!B!"!!q!!m"d`*c!$i
  197. X!$`(6!R1LKBLX!!!#!J!!!J)!!!!!!3!!!!%!!!!"6!!!!%`!!!!b!#eT3!Kd!!!
  198. X!(!!b!!"08&05!!!!#J2Yrrm!!!!!!#jV*$e,:
  199. END_OF_FILE
  200. if test 1515 -ne `wc -c <'mac/dumpres/MakeFile.hqx'`; then
  201.     echo shar: \"'mac/dumpres/MakeFile.hqx'\" unpacked with wrong size!
  202. fi
  203. # end of 'mac/dumpres/MakeFile.hqx'
  204. if test -f 'mac/scrnmgr/ScrnMgr.doc' -a "${1}" != "-c" ; then 
  205.   mv -f mac/scrnmgr/ScrnMgr.doc mac/scrnmgr/ScrnMgr.doc.old
  206. fi
  207. echo shar: Extracting \"'mac/scrnmgr/ScrnMgr.doc'\" \(20464 characters\)
  208. sed "s/^X//" >'mac/scrnmgr/ScrnMgr.doc' <<'END_OF_FILE'
  209. XCopyright (C) Curtis McCauley, 1989.  All rights reserved.
  210. X
  211. XYou may copy this subroutine package freely, modify it as you desire,
  212. Xand distribute it at will, as long as the copyright notice in the
  213. Xsource material is not disturbed, excepting that no one may use this
  214. Xpackage or any part of it for commercial purposes of any kind without
  215. Xthe express written consent of its author.
  216. X 
  217. XThis document describes a package of subroutines I have decided to
  218. Xcall the Screen Manager.
  219. X
  220. XEnclosed files:
  221. X
  222. XScrnMgr.doc        What you are reading
  223. X
  224. XScrnMgr.c        The source for the subroutine package
  225. XScrnMgr.r        Resources used by the subroutines
  226. XScrnMgr.h        Include file for applications
  227. X
  228. XScrnMgr.rsrc    The Rez output from ScrnMgr.r (if you do not have Rez)
  229. X
  230. XScrnTest.c        A test application
  231. XScrnTest.r        Resources used by the test application
  232. X
  233. XMakeFile        What the name implies
  234. X
  235. XThe package is pretty heavily built around MPW.  It is specifically
  236. Xtailored for version 3.0, but should work with 2.0.2.  The only thing
  237. XI think you would have to modify for the older version is the SIZE
  238. Xresource.  Porting the package to other environments is not something
  239. XI would recommend.
  240. X
  241. XThe make file recognizes two primary targets: ScrnTest - which will
  242. Xbuild the test application along with the subroutine package object
  243. Xfile, and Install - which will copy the object files to appropriate
  244. Xdirectories.  If you have a non-standard MPW directory structure, you
  245. Xwill want to modify the rules for Install.
  246. X
  247. XI initially built the subroutine package around a model of the IBM PC
  248. Xscreen BIOS calls.  The idea was to take a public domain curses
  249. Xpackage for the PC and replace all the BIOS calls with calls to my
  250. Xpackage.  Since my ultimate goal was to port the UNIX moria program
  251. Xwhich relied on curses, and the only copy of curses I had was the PC
  252. Xversion, this strategy initially seemed to make sense.  Moria, as it
  253. Xturns out, only calls a few of the curses routines, so I never had to
  254. Xactually port the whole PC curses package.  It was a lot easier to
  255. Xjust replace the curses calls in moria with direct calls to my
  256. Xsubroutine package.  By reducing the number of software layers I
  257. Xachieved better performance, anyway.
  258. X
  259. XStill, the internal structure of the package resembles the PC BIOS.  I
  260. Xkeep two large byte arrays to hold the entire screen, one with the
  261. Xcharacters, the other with the attributes.  The attributes are
  262. Xforeground and background color (the eight original quickdraw colors),
  263. Xunderlined, and italicized.  The bulk of the package, at least in
  264. Xnumber of functions, is taken up with routines to manipulate these
  265. Xbuffers, either to put data in or take data out.  Whenever the
  266. Xcontents of the buffers are changed, the window is not immediately
  267. Xupdated to reflect the change.  Instead, I "invalidate" the portion of
  268. Xthe window changed.  This is done by using InvalRect(), which causes
  269. Xthe area to be accumulated in the update region of the window, or by
  270. Xadding the area to an internal representation of the dirty area of the
  271. Xscreen.  This internal representation is less precise than the region
  272. Xwhich is kept by quickdraw calls to InvalRect().  It consists of the
  273. Xbeginning and ending dirty area on each screen line.  The latter
  274. Xmethod is faster, but the screen changes will only be noticed when a
  275. Xcall to update the screen is explicitly made, as opposed to the idle
  276. Xroutine (see below) catching an update event.  There are two sets of
  277. Xroutines, then, to change the screen buffers.  The ones prefixed with
  278. Xa 'D' (for delayed update) use the later method.
  279. X
  280. XA program which uses this package, at a minimum, has to call
  281. XInitScreenMgr() at the beginning to open the window, call
  282. XIdleScreenMgr() frequently in the middle to handle all the standard
  283. Xmac events (mouse and keyboard events, especially, but also the
  284. XMultiFinder stuff as well), and call CloseScreenMgr() at the end.  The
  285. Xbest time to call the idle routine is whenever your program is waiting
  286. Xfor a keystroke.  Another good time is at regular intervals in a heavy
  287. Xcompute loop.  If you do this, you can actually get your program to
  288. Xrun in the background, but all the idle calls will, of course, slow
  289. Xthings down some.  In heavy compute passages, then, you might instead
  290. Xwant to bracket the code with calls to BeginScreenWait() and
  291. XEndScreenWait() to change the mouse cursor to a spinning watch.
  292. X
  293. XA description of each routine in the package follows --
  294. X
  295. Xint InitScreenMgr(int h, int v, char *title,
  296. X    char *resFile, OSType rfCreator, OSType rfType,
  297. X    void (*fileMenuProc)(int item),
  298. X    void (*appMenuProc)(int item),
  299. X    int multiColorFlag);
  300. X
  301. XThis routine initializes the package, allocates buffers, and puts the
  302. Xwindow on the monitor.  H and v are the dimensions of the screen in
  303. Xcharacters.  Title is the window title.  ResFile, rfCreator, and
  304. XrfType describe the file to contain the configuration information.
  305. XThis file will be maintained in the system folder.  It remembers the
  306. Xposition and size of the window, the font size selected, and, if the
  307. Xscreen is only two colors, the user's choices for foreground and
  308. Xbackground color.  FileMenuProc points to a routine to be called when
  309. Xa selection from the file menu is made.  A click in the window's close
  310. Xbox is considered like a selection from the menu, resulting in a call
  311. Xto fileMenuProc with the item number equal to the constant
  312. XcloseBoxItem.  AppMenuProc points to a routine to be called when a
  313. Xselection from the application menu is made.  Both can be NULL, in
  314. Xwhich case the subroutine package will handle them as best it can.
  315. XMultiColorFlag is non-zero when more than two colors will be displayed
  316. Xon the screen.
  317. X
  318. Xvoid IdleScreenMgr(void);
  319. X
  320. XThis routine handles the macintosh event queue.  It must be called
  321. Xfrequently, or the user will not be able to select from menus, switch
  322. Xto another program or desk accessory, etc.  It also blinks the screen
  323. Xcursor.
  324. X
  325. Xvoid ShowScreen(int visible);
  326. X
  327. XShows or hides the screen window, depending upon the visible flag.
  328. X
  329. Xvoid CloseScreenMgr(void);
  330. X
  331. XCloses the window, deallocates buffers.
  332. X
  333. Xvoid SetScreenQuitProc(void (*quitProc)(void), int willReturnFlag);
  334. X
  335. XTells the package what routine to call when quit is chosen.  If the
  336. Xroutine pointed to by quitProc will always return (as opposed to doing
  337. Xsomething like ExitToShell()), willReturnFlag should be non-zero.
  338. X
  339. Xvoid SetScreenAboutProc(void (*aboutProc)(void));
  340. X
  341. XAllows the standard about box to be overridden.  AboutProc points to a
  342. Xroutine which should be called when the about item is chosen from the
  343. Xapple menu.
  344. X
  345. XThe following routines all manipulate the screen buffers.  Calls
  346. Xbeginning with 'Set' do not move the screen cursor and need to be told
  347. Xwhere to begin the operation.  Calls beginning with 'Write' move the
  348. Xcursor and begin the operation at the current cursor location.  All of
  349. Xthese routines can be prefixed with a 'D' to make changes to the
  350. Xinternal dirty area instead of calling InvalRect().  The internal
  351. Xdirty area is updated only when a call to UpdateScreen() is made or
  352. Xsome external update event is generated and caught by the idle
  353. Xroutine.
  354. X
  355. XThe screen cells are indicated by column (h) and row (v) numbers which
  356. Xincrease from left to right and top to bottom.  Hence the upper left
  357. Xof the screen is (0, 0) and the bottom right is (h, v) as set by the
  358. Xcall to InitScreenMgr().
  359. X
  360. Xvoid SetScreenChar(char c, int h, int v);
  361. X
  362. Xvoid SetScreenCharAttr(char c, char a, int h, int v);
  363. X
  364. Xvoid WriteScreenChar(char c);
  365. X
  366. Xvoid WriteScreenCharAttr(char c, char a);
  367. X
  368. XSets the character at (h, v) to c and the attribute to a.
  369. X
  370. Xvoid SetScreenBuffer(char *buffer, int rowBytes,
  371. X    Rect *area, int h, int v);
  372. X
  373. Xvoid SetScreenBufferAttr(char *buffer, char a,
  374. X    int rowBytes, Rect *area, int h, int v);
  375. X
  376. Xvoid WriteScreenBuffer(char *buffer, int rowBytes, Rect *area);
  377. X
  378. Xvoid WriteScreenBufferAttr(char *buffer, char a,
  379. X    int rowBytes, Rect *area);
  380. X
  381. XSets the block of characters at (h, v) to the contents of buffer and
  382. Xall the attributes to a.  RowBytes indicates the number of bytes in a
  383. Xrow in buffer.  Area indicates the block of characters to copy,
  384. Xassuming that the first byte in buffer is at (0, 0).  Note: This means
  385. Xthat the area rectangle is in buffer coordinates, not screen
  386. Xcoordinates.
  387. X
  388. Xvoid SetScreenString(char *str, int h, int v);
  389. X
  390. Xvoid SetScreenStringAttr(char *str, char a, int h, int v);
  391. X
  392. Xvoid WriteScreenString(char *str);
  393. X
  394. Xvoid WriteScreenStringAttr(char *str, char a);
  395. X
  396. XSets the characters at (h, v) and following to the contents of string
  397. Xand all the attributes to a.
  398. X
  399. Xvoid SetScreenImage(char *c, char *a, int rowBytes,
  400. X    Rect *area, int h, int v);
  401. X
  402. Xvoid WriteScreenImage(char *c, char *a,
  403. X    int rowBytes, Rect *area);
  404. X
  405. XSets the block of characters at (h, v) to the contents of c and the
  406. Xattributes to the contents of a.  RowBytes indicates the number of
  407. Xbytes in a row in the c and a buffers.  Area indicates the block of
  408. Xbytes to copy, assuming that the first byte in the buffers is at (0,
  409. X0).  Note: This means that the area rectangle is in buffer
  410. Xcoordinates, not screen coordinates.
  411. X
  412. Xvoid FillScreen(char c, char a, Rect *area);
  413. X
  414. XFills the part of the screen indicated by area with the character c
  415. Xand the attribute a.  Area is in screen coordinates.
  416. X
  417. Xvoid EraseScreen(Rect *area);
  418. X
  419. XFills the part of the screen indicated by area with the blank
  420. Xcharacter (0x20) and the normal attribute (attrNormal).  Area is in
  421. Xscreen coordinates.
  422. X
  423. Xvoid ScrollScreen(int dh, int dv, Rect *area, char a);
  424. X
  425. XScrolls the part of the screen indicated by area the distance
  426. Xindicated by dh and dv (which may be negative).  The leftover space is
  427. Xfilled with the blank character (0x20) and the normal attribute
  428. X(attrNormal).  Area is in screen coordinates.
  429. X
  430. Xvoid MoveScreenCursor(int dh, int dv);
  431. X
  432. XMoves the screen cursor by the number of character cells indicated by
  433. Xdh and dv (which may be negative).
  434. X
  435. Xvoid SetScreenCursor(int h, int v);
  436. X
  437. XPositions the screen cursor at the character cell indicated by h and v.
  438. X
  439. Xvoid DefineScreenCursor(int color, int lines, int blinkRate);
  440. X
  441. XDefines the screen cursor.  Color indicates what you would expect,
  442. Xlines indicates the height of the cursor in pixels (up to the height
  443. Xof the character cell, so lines = 32767 will probably give you a block
  444. Xcursor), and blinkRate indicates the number of clock ticks between
  445. Xcursor blinks or zero for a non-blinking cursor (a really friendly
  446. Xprogram will use GetCaretTime() to set this).  The default cursor uses
  447. Xblack, 2 lines, and no blinks.  It is initially hidden.
  448. X
  449. Xvoid HideScreenCursor(void);
  450. X
  451. Xvoid ShowScreenCursor(void);
  452. X
  453. XAn internal counter is used to keep track of whether the cursor is to
  454. Xbe shown on the screen.  When it is less than or equal to zero, the
  455. Xcursor is hidden.  Otherwise it is shown.  The hide routine decrements
  456. Xthis counter.  Show increments it.
  457. X
  458. Xvoid UpdateScreen(void);
  459. X
  460. XImmediately draws the dirty portion of the screen.  The dirty portion
  461. Xincludes the update region of the window and the internal dirty area
  462. Xmaintained by the 'D' buffer manipulation routines.
  463. X
  464. XIn addition to the macintosh event queue, this package maintains a
  465. Xbuffer of keystrokes and mouse clicks.  Whenever the idle routine is
  466. Xcalled, the events are pulled out of the macintosh queue and put into
  467. Xthe internal buffer.
  468. X
  469. Xvoid FlushScreenKeys(void);
  470. X
  471. XFlushes the internal buffer of keystrokes and the macintosh event queue.
  472. X
  473. Xint CountScreenKeys(void);
  474. X
  475. XCounts the number of entries in the internal keystroke buffer.
  476. X
  477. Xint GetScreenKeys(char *keyCode, char *modifiers, char *ascii,
  478. X    int *h, int *v);
  479. X
  480. XPulls the top element off the internal buffer.  KeyCode contains the
  481. Xkeycode as described in the IM Event Manager documentation.  Modifiers
  482. Xcontains bits which indicate the state of the control keys (command,
  483. Xshift, caps lock, option, and control) and whether the event is a
  484. Xmouse click.  There are masks defined in ScrnMgr.h that indicate the
  485. Xexact bit for each.  In the case of a mouse click, h and v will be
  486. Xset.  If you are not interested in mouse clicks, you can pass NULLs
  487. Xfor both.  Ascii will get the ascii code of the key hit.  If the
  488. Xkeyboard in use has a control key, the ascii value is taken right from
  489. Xthe event which will contain the appropriate control code.  If the
  490. Xkeyboard does not have a control key, a test is made to see if the
  491. Xcommand modifier key is down. If so, the ascii value is converted to
  492. Xthe appropriate control code.  See the discussion on MENU resources
  493. Xbelow to see how command key equivalents work on machines without a
  494. Xcontrol key.
  495. X
  496. Xvoid EnableScreenMouse(int flag);
  497. X
  498. XEnables or disables the queuing of mouse clicks in the internal
  499. Xbuffer, according to flag.  Initially, mouse clicks are disabled.
  500. X
  501. Xvoid ClipScreenMouse(Rect *clip);
  502. X
  503. XLimits the detection of mouse clicks to the area indicated by clip,
  504. Xmeasured in character cells on the screen.
  505. X
  506. Xvoid GetScreenCharAttr(char *c, char *a, int h, int v);
  507. X
  508. XReturns in c and a the character and attribute at (h, v).
  509. X
  510. Xvoid GetScreenImage(char *c, char *a, int rowBytes,
  511. X    Rect *area, int h, int v);
  512. X
  513. XReturns in c and a the block of characters and attributes beginning at
  514. X(h, v).  RowBytes indicates the number of bytes in a row in the c and
  515. Xa buffers.  Area indicates the block of bytes to copy, assuming that
  516. Xthe first byte in the buffers is at (0, 0).  Note: This means that the
  517. Xarea rectangle is in buffer coordinates, not screen coordinates.
  518. X
  519. Xvoid GetScreenCursor(int *h, int *v);
  520. X
  521. XReturns the screen coordinates of the cursor.
  522. X
  523. XThe next few routines help with dialogs.  They are designed to work
  524. Xwith multi-monitor systems.  On such systems, the active monitor is
  525. Xchosen by the current mouse location, arguably not a good choice, but
  526. Xprobably a choice as good as any other.
  527. X
  528. Xint YesOrNo(char *question);
  529. X
  530. XPuts up a dialog box with the string pointed to by question, a button
  531. Xfor yes (the default), and a button for no.  Returns true if yes is
  532. Xselected.  The box will be centered horizontally on the active
  533. Xmonitor, one-third of the way from the top.
  534. X
  535. Xint DoScreenALRT(int id, int kind, Fixed hRatio, Fixed vRatio);
  536. X
  537. XPuts up the alert indicated by id.  Kind specifies the type of alert
  538. X(normal, stop, note, or caution).  There are constants defined in
  539. XScrnMgr.h for each of these kinds.  The alert will be centered hRatio
  540. Xof the way from the left and vRatio of the way from the top of the
  541. Xactive monitor.  (I.e., if hRatio = vRatio = .5, the alert will be
  542. Xexactly in the middle of the screen.)  ScrnMgr.h contains fixed
  543. Xconstants for common ratios.  See IM for a general discussion of fixed
  544. Xnumbers.  Returns the item number of the button pressed.
  545. X
  546. Xvoid CenterScreenDLOG(int id, Fixed hRatio, Fixed vRatio,
  547. X    int *h, int *v);
  548. X
  549. XGiven a DLOG, which does not have to be currently shown on the screen,
  550. Xindicated by id, and hRatio and vRatio, returns where to position its
  551. Xtop left corner in h and v.  See DoScreenALRT for an explanation of
  552. XhRatio and vRatio.  This routine is generally used prior to calling
  553. XGetNewDialog().  You should declare your DLOG to be invisible, call
  554. XMoveWindow() using h and v to center it, and then call ShowWindow().
  555. X
  556. Xvoid GetScreenBounds(Rect *bounds);
  557. X
  558. XReturns the bounds in global coordinates of the active monitor, less
  559. Xthe menu bar if it is on this monitor.
  560. X
  561. Xpascal void DrawDefaultBorder();
  562. X
  563. Xpascal void DrawGroupRect();
  564. X
  565. XTwo handy routines for installing in dialog userItems.
  566. X
  567. Xvoid ConfigScreenMgr(int force, ResType theType, int theID,
  568. X    int (*configProc)(Handle theData));
  569. X
  570. XA routine to manipulate resources in the configuration file.  Checks
  571. Xfor the presence of the resource indicated by theType and theID.  If
  572. Xthis resource is not found, it does nothing.  If the resource is found
  573. Xsomewhere other than in the configuration file (see InitScreenMgr()),
  574. Xthis routine assumes that some action needs to be taken.  The usual
  575. Xplace other the the configuration file to find this kind of resource
  576. Xis in the program file itself and logically represents default values.
  577. XIf some action needs to be taken or force is non-zero, the routine
  578. Xpointed to by configProc is called.  TheData contains a handle to the
  579. Xresource found as described above.  ConfigProc should generally put up
  580. Xa dialog box to change the data in theHandle.  If it does change the
  581. Xdata, configProc should return true.  Otherwise, false.  If configProc
  582. Xreturns true, the handle is marked changed so that it is added to the
  583. Xconfiguration file.  A nice time to call this routine is at the start
  584. Xof your program with force false, so that initial configuration
  585. Xinformation can be obtained from the user.  Then provide a menu item
  586. Xin the application menu to allow the user to change it later, calling
  587. Xthis routine with force true.
  588. X
  589. Xvoid BeginScreenWait(int rate);
  590. X
  591. XChanges the cursor to a spinning wristwatch.  Rate indicates the
  592. Xnumber of ticks between each spin.
  593. X
  594. Xvoid EndScreenWait(void);
  595. X
  596. XReturns the cursor to the standard arrow.
  597. X
  598. XHandle GetFileMHandle(void);
  599. X
  600. XHandle GetAppMHandle(void);
  601. X
  602. XReturns a handle to the file or application menu.
  603. X
  604. Xint PushScreen();
  605. X
  606. XSaves the current screen buffer (characters, attributes, and cursor
  607. Xlocation) on a stack.  Allocates a significant amount of memory.
  608. XReturns 0 if successful.
  609. X
  610. Xvoid PopScreen()
  611. X
  612. XSets the screen contents to the last screen saved by PushScreen().  If
  613. Xthere are no saved screens on the stack, does nothing.
  614. X
  615. XYou should include in your application all the resources found in the
  616. Xfile ScrnMgr.rsrc.  This file is produced from ScrnMgr.r by the MPW
  617. Xtool Rez.  The best way to do this, assuming you have Rez, is to
  618. Xinclude at the beginning of your program's .r file, the line 'include
  619. X"ScrnMgr.rsrc";'
  620. X
  621. XThis package assumes that your program will have 4 or 5 menus: the
  622. XApple, File, Edit, Screen (FontSize), and optionally an "application"
  623. Xmenu.  You can override the standard file menu, if you provide a
  624. XfileMenuProc in the InitScreenMgr() call.  If you do override, you
  625. Xshould provide two menu resources to replace the default ones in
  626. XScrnMgr.rsrc.  The first must be MENU(129).  The second, MENU(229),
  627. Xmust be a copy of the first, except for not having any command key
  628. Xequivalents.  It will be used on machines without a control key.  In
  629. Xother words, machines without a control key on the keyboard cannot use
  630. Xcommand key equivalents.  If you want to implement an application
  631. Xmenu, you must provide an appMenuProc to the initialization routine,
  632. Xalong with MENU(133) and MENU(233).  The first menu is the application
  633. Xmenu with command key equivalents, the second without.
  634. X
  635. XYou will probably want to override the STR(128) resource which
  636. Xcontains the title of the first item in the apple menu (i.e, the about
  637. Xitem).  If you override the DLOG(128) and DITL(128) resources, you can
  638. Xrely on the package to put up your customized about box.  Otherwise,
  639. Xyou can call SetScreenAboutProc() to really customize things.  The
  640. Xdefault about box mentions the version of this package and its
  641. Xprogrammer.
  642. X
  643. XThe STR(129) resource contains the name of the font the package should
  644. Xuse.  Any true monospaced font should work.  Be forewarned that very
  645. Xfew fonts are completely monospaced.  Many have a few odd characters
  646. Xwhose width is not the same as most others.  Since this package relies
  647. Xon GetFontInfo() and the returned widMax to setup the screen, even the
  648. Xpresence of one extra wide character in the font will cause funny
  649. Xthings to happen.
  650. X
  651. XYou will probably want to override the INFO(1) resource.  This
  652. Xresource contains the window size, position, font size, and colors.  A
  653. Xcopy of it is made the first time your program is run in the
  654. Xconfiguration file and is thereafter kept up to date.  Hence, the copy
  655. Xyou keep in you application file should contain the default initial
  656. Xvalues.  The window size and position are indicated by a rectangle in
  657. Xglobal coordinates.  Since ResEdit does not provide a template for
  658. Xthis kind of resource, you will have to at least look at the ScrnMgr.r
  659. Xfile to see the format of the resource if you want to use ResEdit to
  660. Xmodify it.
  661. X
  662. XFinally, you will want to supply a SIZE resource to make your program
  663. XMultiFinder friendly.
  664. X
  665. XI am somewhat ambivalent about releasing this package to the public.
  666. XI do not think that it is particularly well-written.  And I certainly
  667. Xdo not think that it does justice to what the mac is all about.  It is
  668. Xprobably full of bugs.  The only real testing that it has had is in
  669. Xthe moria port, which doesn't call all of the routines available.
  670. XHence, I do not provide an express or implied warranty of any kind.
  671. XYou use the package at your own risk.  If you have any questions, I
  672. Xcan be reached at 73230.224@compuserve.com or at 73230,224 on CIS.
  673. X
  674. XCurtis McCauley
  675. X22 July 1989
  676. END_OF_FILE
  677. if test 20464 -ne `wc -c <'mac/scrnmgr/ScrnMgr.doc'`; then
  678.     echo shar: \"'mac/scrnmgr/ScrnMgr.doc'\" unpacked with wrong size!
  679. fi
  680. # end of 'mac/scrnmgr/ScrnMgr.doc'
  681. if test -f 'source/player.c' -a "${1}" != "-c" ; then 
  682.   echo shar: Will not clobber existing file \"'source/player.c'\"
  683. else
  684. echo shar: Extracting \"'source/player.c'\" \(19680 characters\)
  685. sed "s/^X//" >'source/player.c' <<'END_OF_FILE'
  686. X/* player.c: player specific variable definitions
  687. X
  688. X   Copyright (c) 1989 James E. Wilson, Robert A. Koeneke
  689. X
  690. X   This software may be copied and distributed for educational, research, and
  691. X   not for profit purposes provided that this copyright and statement are
  692. X   included in all such copies. */
  693. X
  694. X#include "constant.h"
  695. X#include "config.h"
  696. X#include "types.h"
  697. X
  698. X/* Player record for most player related info */
  699. Xplayer_type py;
  700. X/* player location in dungeon */
  701. Xint16 char_row;
  702. Xint16 char_col;
  703. X/* calculated base hp values for player at each level, store them so that
  704. X   drain life + restore life does not affect hit points */
  705. Xint16u player_hp[MAX_PLAYER_LEVEL];
  706. X
  707. X/* Class titles for different levels                */
  708. X#ifdef MACGAME
  709. Xchar *(*player_title)[MAX_PLAYER_LEVEL];
  710. X#else
  711. Xchar *player_title[MAX_CLASS][MAX_PLAYER_LEVEL] = {
  712. X    /* Warrior     */
  713. X{"Rookie","Private","Soldier","Mercenary","Veteran(1st)","Veteran(2nd)",
  714. X"Veteran(3rd)","Warrior(1st)","Warrior(2nd)","Warrior(3rd)","Warrior(4th)",
  715. X"Swordsman-1","Swordsman-2","Swordsman-3","Hero","Swashbuckler","Myrmidon",
  716. X"Champion-1","Champion-2","Champion-3","Superhero","Knight","Superior Knt",
  717. X"Gallant Knt","Knt Errant","Guardian Knt","Baron","Duke","Lord (1st)",
  718. X"Lord (2nd)","Lord (3rd)","Lord (4th)","Lord (5th)","Lord (6th)","Lord (7th)",
  719. X"Lord (8th)","Lord (9th)","Lord Gallant","Lord Keeper","Lord Noble"},
  720. X    /* Mage         */
  721. X{"Novice","Apprentice","Trickster-1","Trickster-2","Trickster-3","Cabalist-1",
  722. X"Cabalist-2","Cabalist-3","Visionist","Phantasmist","Shadowist","Spellbinder",
  723. X"Illusionist","Evoker (1st)","Evoker (2nd)","Evoker (3rd)","Evoker (4th)",
  724. X"Conjurer","Theurgist","Thaumaturge","Magician","Enchanter","Warlock",
  725. X"Sorcerer","Necromancer","Mage (1st)","Mage (2nd)","Mage (3rd)","Mage (4th)",
  726. X"Mage (5th)","Wizard (1st)","Wizard (2nd)","Wizard (3rd)","Wizard (4th)",
  727. X"Wizard (5th)","Wizard (6th)","Wizard (7th)","Wizard (8th)","Wizard (9th)",
  728. X"Wizard Lord"},
  729. X    /* Priests     */
  730. X{"Believer","Acolyte(1st)","Acolyte(2nd)","Acolyte(3rd)","Adept (1st)",
  731. X"Adept (2nd)","Adept (3rd)","Priest (1st)","Priest (2nd)","Priest (3rd)",
  732. X"Priest (4th)","Priest (5th)","Priest (6th)","Priest (7th)","Priest (8th)",
  733. X"Priest (9th)","Curate (1st)","Curate (2nd)","Curate (3rd)","Curate (4th)",
  734. X"Curate (5th)","Curate (6th)","Curate (7th)","Curate (8th)","Curate (9th)",
  735. X"Canon (1st)","Canon (2nd)","Canon (3rd)","Canon (4th)","Canon (5th)",
  736. X"Low Lama","Lama-1","Lama-2","Lama-3","High Lama","Great Lama","Patriarch",
  737. X"High Priest","Great Priest","Noble Priest"},
  738. X    /* Rogues     */
  739. X{"Vagabond","Footpad","Cutpurse","Robber","Burglar","Filcher","Sharper",
  740. X"Magsman","Common Rogue","Rogue (1st)","Rogue (2nd)","Rogue (3rd)",
  741. X"Rogue (4th)","Rogue (5th)","Rogue (6th)","Rogue (7th)","Rogue (8th)",
  742. X"Rogue (9th)","Master Rogue","Expert Rogue","Senior Rogue","Chief Rogue",
  743. X"Prime Rogue","Low Thief","Thief (1st)","Thief (2nd)","Thief (3rd)",
  744. X"Thief (4th)","Thief (5th)","Thief (6th)","Thief (7th)","Thief (8th)",
  745. X"Thief (9th)","High Thief","Master Thief","Executioner","Low Assassin",
  746. X"Assassin","High Assassin","Guildsmaster"},
  747. X    /* Rangers     */
  748. X{"Runner (1st)","Runner (2nd)","Runner (3rd)","Strider (1st)","Strider (2nd)",
  749. X"Strider (3rd)","Scout (1st)","Scout (2nd)","Scout (3rd)","Scout (4th)",
  750. X"Scout (5th)","Courser (1st)","Courser (2nd)","Courser (3rd)","Courser (4th)",
  751. X"Courser (5th)","Tracker (1st)","Tracker (2nd)","Tracker (3rd)",
  752. X"Tracker (4th)","Tracker (5th)","Tracker (6th)","Tracker (7th)",
  753. X"Tracker (8th)","Tracker (9th)","Guide (1st)","Guide (2nd)","Guide (3rd)",
  754. X"Guide (4th)","Guide (5th)","Guide (6th)","Guide (7th)","Guide (8th)",
  755. X"Guide (9th)","Pathfinder-1","Pathfinder-2","Pathfinder-3","Ranger",
  756. X"High Ranger","Ranger Lord"},
  757. X    /* Paladins     */
  758. X{"Gallant","Keeper (1st)","Keeper (2nd)","Keeper (3rd)","Keeper (4th)",
  759. X"Keeper (5th)","Keeper (6th)","Keeper (7th)","Keeper (8th)","Keeper (9th)",
  760. X"Protector-1","Protector-2","Protector-3","Protector-4","Protector-5",
  761. X"Protector-6","Protector-7","Protector-8","Defender-1","Defender-2",
  762. X"Defender-3","Defender-4","Defender-5","Defender-6","Defender-7","Defender-8",
  763. X"Warder (1st)","Warder (2nd)","Warder (3rd)","Warder (4th)","Warder (5th)",
  764. X"Warder (6th)","Warder (7th)","Warder (8th)","Warder (9th)","Guardian",
  765. X"Chevalier","Justiciar","Paladin","High Lord"}
  766. X};
  767. X#endif
  768. X
  769. X/* Base experience levels, may be adjusted up for race and/or class*/
  770. Xint32u player_exp[MAX_PLAYER_LEVEL] = {
  771. X      10,      25,    45,     70,      100,        140,      200,    280,
  772. X     380,     500,     650,    850,     1100,       1400,     1800,     2300,
  773. X    2900,    3600,    4400,    5400,     6800,       8400,    10200,    12500,
  774. X   17500,   25000,  35000L,  50000L,   75000L,    100000L,  150000L,  200000L,
  775. X 300000L, 400000L, 500000L, 750000L, 1500000L, 2500000L, 5000000L, 10000000L
  776. X};
  777. X
  778. X/*Race    STR,INT,WIS,DEX,CON,CHR,
  779. X    Ages, heights, and weights (male then female)
  780. X    Racial Bases for: dis,srh,stl,fos,bth,bthb,bsav,hitdie,
  781. X    infra, exp base, choice-classes */
  782. X#ifdef MACGAME
  783. Xrace_type *race;
  784. X#else
  785. Xrace_type race[MAX_RACES] = {
  786. X   {"Human",     0,  0,     0,  0,     0,  0,
  787. X      14,  6, 72,  6,180, 25, 66,  4,150, 20,
  788. X      0,  0,  0,  0,  0,  0,  0, 10,  0, 100, 0x3F,
  789. X    },
  790. X   {"Half-Elf", -1,  1,     0,  1, -1,  1,
  791. X      24, 16, 66,  6,130, 15, 62,  6,100, 10,
  792. X      2,  6,  1, -1, -1,  5,  3,  9,  2, 110, 0x3F,
  793. X    },
  794. X   {"Elf",    -1,  2,     1,  1, -2,  1,
  795. X      75, 75, 60,  4,100,  6, 54,  4, 80,  6,
  796. X      5,  8,  1, -2, -5, 15,  6,  8,  3, 120, 0x1F,
  797. X    },
  798. X   {"Halfling", -2,  2,     1,  3,     1,  1,
  799. X      21, 12, 36,  3, 60,  3, 33,  3, 50,  3,
  800. X      15, 12,  4, -5,-10, 20, 18,  6,  4, 110, 0x0B,
  801. X    },
  802. X   {"Gnome",    -1,  2,     0,  2,     1, -2,
  803. X      50, 40, 42,  3, 90,  6, 39,  3, 75,  3,
  804. X      10,  6,  3, -3, -8, 12, 12,  7,  4, 125, 0x0F,
  805. X    },
  806. X   {"Dwarf",     2, -3,     1, -2,     2, -3,
  807. X      35, 15, 48,  3,150, 10, 46,  3,120, 10,
  808. X      2,  7,  -1,  0, 15,  0,  9,  9,  5, 120, 0x05,
  809. X    },
  810. X   {"Half-Orc",     2, -1,     0,  0,     1, -4,
  811. X      11,  4, 66,  1,150,  5, 62,  1,120,  5,
  812. X      -3,  0, -1,  3, 12, -5, -3, 10,  3, 110, 0x0D,
  813. X    },
  814. X   {"Half-Troll",4, -4, -2, -4,     3, -6,
  815. X      20, 10, 96, 10,255, 50, 84,  8,225, 40,
  816. X      -5, -1, -2,  5, 20,-10, -8, 12,  3, 120, 0x05,
  817. X    }
  818. X };
  819. X#endif
  820. X
  821. X/* 5 char race for printing scores. */
  822. Xchar *dsp_race[MAX_RACES] = {
  823. X  "Human",
  824. X  "H-Elf",
  825. X  "Elf  ",
  826. X  "Hobbt",
  827. X  "Gnome",
  828. X  "Dwarf",
  829. X  "H-Orc",
  830. X  "H-Tro"
  831. X};
  832. X
  833. X/* Background information                    */
  834. X#ifdef MACGAME
  835. Xbackground_type *background;
  836. X#else
  837. Xbackground_type background[MAX_BACKGROUND] = {
  838. X{"You are the illegitimate and unacknowledged child ",         10, 1, 2, 25},
  839. X{"You are the illegitimate but acknowledged child ",         20, 1, 2, 35},
  840. X{"You are one of several children ",                 95, 1, 2, 45},
  841. X{"You are the first child ",                    100, 1, 2, 50},
  842. X{"of a Serf.  ",                         40, 2, 3, 65},
  843. X{"of a Yeoman.  ",                         65, 2, 3, 80},
  844. X{"of a Townsman.  ",                         80, 2, 3, 90},
  845. X{"of a Guildsman.  ",                         90, 2, 3,105},
  846. X{"of a Landed Knight.  ",                     96, 2, 3,120},
  847. X{"of a Titled Noble.  ",                     99, 2, 3,130},
  848. X{"of a Royal Blood Line.  ",                    100, 2, 3,140},
  849. X{"You are the black sheep of the family.  ",             20, 3,50, 20},
  850. X{"You are a credit to the family.  ",                 80, 3,50, 55},
  851. X{"You are a well liked child.  ",                100, 3,50, 60},
  852. X{"Your mother was a Green-Elf.  ",                 40, 4, 1, 50},
  853. X{"Your father was a Green-Elf.  ",                 75, 4, 1, 55},
  854. X{"Your mother was a Grey-Elf.  ",                 90, 4, 1, 55},
  855. X{"Your father was a Grey-Elf.  ",                 95, 4, 1, 60},
  856. X{"Your mother was a High-Elf.  ",                 98, 4, 1, 65},
  857. X{"Your father was a High-Elf.  ",                100, 4, 1, 70},
  858. X{"You are one of several children ",                 60, 7, 8, 50},
  859. X{"You are the only child ",                    100, 7, 8, 55},
  860. X{"of a Green-Elf ",                         75, 8, 9, 50},
  861. X{"of a Grey-Elf ",                         95, 8, 9, 55},
  862. X{"of a High-Elf ",                        100, 8, 9, 60},
  863. X{"Ranger.  ",                             40, 9,54, 80},
  864. X{"Archer.  ",                             70, 9,54, 90},
  865. X{"Warrior.  ",                             87, 9,54,110},
  866. X{"Mage.  ",                             95, 9,54,125},
  867. X{"Prince.  ",                             99, 9,54,140},
  868. X{"King.  ",                            100, 9,54,145},
  869. X{"You are one of several children of a Halfling ",         85,10,11, 45},
  870. X{"You are the only child of a Halfling ",            100,10,11, 55},
  871. X{"Bum.  ",                             20,11, 3, 55},
  872. X{"Tavern Owner.  ",                         30,11, 3, 80},
  873. X{"Miller.  ",                             40,11, 3, 90},
  874. X{"Home Owner.  ",                         50,11, 3,100},
  875. X{"Burglar.  ",                             80,11, 3,110},
  876. X{"Warrior.  ",                             95,11, 3,115},
  877. X{"Mage.  ",                             99,11, 3,125},
  878. X{"Clan Elder.  ",                        100,11, 3,140},
  879. X{"You are one of several children of a Gnome ",             85,13,14, 45},
  880. X{"You are the only child of a Gnome ",                100,13,14, 55},
  881. X{"Beggar.  ",                             20,14, 3, 55},
  882. X{"Braggart.  ",                             50,14, 3, 70},
  883. X{"Prankster.  ",                         75,14, 3, 85},
  884. X{"Warrior.  ",                             95,14, 3,100},
  885. X{"Mage.  ",                            100,14, 3,125},
  886. X{"You are one of two children of a Dwarven ",             25,16,17, 40},
  887. X{"You are the only child of a Dwarven ",            100,16,17, 50},
  888. X{"Thief.  ",                             10,17,18, 60},
  889. X{"Prison Guard.  ",                         25,17,18, 75},
  890. X{"Miner.  ",                             75,17,18, 90},
  891. X{"Warrior.  ",                             90,17,18,110},
  892. X{"Priest.  ",                             99,17,18,130},
  893. X{"King.  ",                            100,17,18,150},
  894. X{"You are the black sheep of the family.  ",             15,18,57, 10},
  895. X{"You are a credit to the family.  ",                 85,18,57, 50},
  896. X{"You are a well liked child.  ",                100,18,57, 55},
  897. X{"Your mother was an Orc, but it is unacknowledged.  ",         25,19,20, 25},
  898. X{"Your father was an Orc, but it is unacknowledged.  ",        100,19,20, 25},
  899. X{"You are the adopted child ",                    100,20, 2, 50},
  900. X{"Your mother was a Cave-Troll ",                 30,22,23, 20},
  901. X{"Your father was a Cave-Troll ",                 60,22,23, 25},
  902. X{"Your mother was a Hill-Troll ",                 75,22,23, 30},
  903. X{"Your father was a Hill-Troll ",                 90,22,23, 35},
  904. X{"Your mother was a Water-Troll ",                 95,22,23, 40},
  905. X{"Your father was a Water-Troll ",                100,22,23, 45},
  906. X{"Cook.  ",                              5,23,62, 60},
  907. X{"Warrior.  ",                             95,23,62, 55},
  908. X{"Shaman.  ",                             99,23,62, 65},
  909. X{"Clan Chief.  ",                        100,23,62, 80},
  910. X{"You have dark brown eyes, ",                     20,50,51, 50},
  911. X{"You have brown eyes, ",                     60,50,51, 50},
  912. X{"You have hazel eyes, ",                     70,50,51, 50},
  913. X{"You have green eyes, ",                     80,50,51, 50},
  914. X{"You have blue eyes, ",                     90,50,51, 50},
  915. X{"You have blue-gray eyes, ",                    100,50,51, 50},
  916. X{"straight ",                             70,51,52, 50},
  917. X{"wavy ",                             90,51,52, 50},
  918. X{"curly ",                            100,51,52, 50},
  919. X{"black hair, ",                         30,52,53, 50},
  920. X{"brown hair, ",                         70,52,53, 50},
  921. X{"auburn hair, ",                         80,52,53, 50},
  922. X{"red hair, ",                             90,52,53, 50},
  923. X{"blond hair, ",                        100,52,53, 50},
  924. X{"and a very dark complexion.",                     10,53, 0, 50},
  925. X{"and a dark complexion.",                     30,53, 0, 50},
  926. X{"and an average complexion.",                     80,53, 0, 50},
  927. X{"and a fair complexion.",                     90,53, 0, 50},
  928. X{"and a very fair complexion.",                    100,53, 0, 50},
  929. X{"You have light grey eyes, ",                     85,54,55, 50},
  930. X{"You have light blue eyes, ",                     95,54,55, 50},
  931. X{"You have light green eyes, ",                    100,54,55, 50},
  932. X{"straight ",                             75,55,56, 50},
  933. X{"wavy ",                            100,55,56, 50},
  934. X{"black hair, and a fair complexion.",                 75,56, 0, 50},
  935. X{"brown hair, and a fair complexion.",                 85,56, 0, 50},
  936. X{"blond hair, and a fair complexion.",                 95,56, 0, 50},
  937. X{"silver hair, and a fair complexion.",                100,56, 0, 50},
  938. X{"You have dark brown eyes, ",                     99,57,58, 50},
  939. X{"You have glowing red eyes, ",                    100,57,58, 60},
  940. X{"straight ",                             90,58,59, 50},
  941. X{"wavy ",                            100,58,59, 50},
  942. X{"black hair, ",                         75,59,60, 50},
  943. X{"brown hair, ",                        100,59,60, 50},
  944. X{"a one foot beard, ",                         25,60,61, 50},
  945. X{"a two foot beard, ",                         60,60,61, 51},
  946. X{"a three foot beard, ",                     90,60,61, 53},
  947. X{"a four foot beard, ",                        100,60,61, 55},
  948. X{"and a dark complexion.",                    100,61, 0, 50},
  949. X{"You have slime green eyes, ",                     60,62,63, 50},
  950. X{"You have puke yellow eyes, ",                     85,62,63, 50},
  951. X{"You have blue-bloodshot eyes, ",                 99,62,63, 50},
  952. X{"You have glowing red eyes, ",                    100,62,63, 55},
  953. X{"dirty ",                             33,63,64, 50},
  954. X{"mangy ",                             66,63,64, 50},
  955. X{"oily ",                            100,63,64, 50},
  956. X{"sea-weed green hair, ",                     33,64,65, 50},
  957. X{"bright red hair, ",                         66,64,65, 50},
  958. X{"dark purple hair, ",                        100,64,65, 50},
  959. X{"and green ",                             25,65,66, 50},
  960. X{"and blue ",                             50,65,66, 50},
  961. X{"and white ",                             75,65,66, 50},
  962. X{"and black ",                            100,65,66, 50},
  963. X{"ulcerous skin.",                         33,66, 0, 50},
  964. X{"scabby skin.",                         66,66, 0, 50},
  965. X{"leprous skin.",                        100,66, 0, 50}
  966. X};
  967. X#endif
  968. X
  969. X/* Classes.                            */
  970. Xclass_type class[MAX_CLASS] = {
  971. X/*      HP Dis Src Stl Fos bth btb sve S  I  W  D Co Ch  Spell Exp  spl */
  972. X{"Warrior",9, 25, 14, 1, 38, 70, 55, 18, 5,-2,-2, 2, 2,-1, NONE,    0, 0},
  973. X{"Mage",   0, 30, 16, 2, 20, 34, 20, 36,-5, 3, 0, 1,-2, 1, MAGE,   30, 1},
  974. X{"Priest", 2, 25, 16, 2, 32, 48, 35, 30,-3,-3, 3,-1, 0, 2, PRIEST, 20, 1},
  975. X{"Rogue",  6, 45, 32, 5, 16, 60, 66, 30, 2, 1,-2, 3, 1,-1, MAGE,    0, 5},
  976. X{"Ranger", 4, 30, 24, 3, 24, 56, 72, 30, 2, 2, 0, 1, 1, 1, MAGE,   40, 3},
  977. X{"Paladin",6, 20, 12, 1, 38, 68, 40, 24, 3,-3, 1, 0, 2, 2, PRIEST, 35, 1}
  978. X};
  979. X
  980. X/* making it 16 bits wastes a little space, but saves much signed/unsigned
  981. X   headaches in its use */
  982. X/* CLA_MISC_HIT is identical to CLA_SAVE, which takes advantage of
  983. X   the fact that the save values are independent of the class */
  984. Xint16 class_level_adj[MAX_CLASS][MAX_LEV_ADJ] = {
  985. X/*           bth    bthb   device  disarm   save/misc hit  */
  986. X/* Warrior */ {    4,    4,    2,    2,    3 },
  987. X/* Mage    */ { 2,    2,    4,    3,    3 },
  988. X/* Priest  */ { 2,    2,    4,    3,    3 },
  989. X/* Rogue   */ { 3,    4,    3,    4,    3 },
  990. X/* Ranger  */ { 3,    4,    3,    3,    3 },
  991. X/* Paladin */ { 3,    3,    3,    2,    3 }
  992. X};
  993. X
  994. Xint32u spell_learned = 0;    /* bit mask of spells learned */
  995. Xint32u spell_worked = 0;    /* bit mask of spells tried and worked */
  996. Xint32u spell_forgotten = 0;    /* bit mask of spells learned but forgotten */
  997. Xint8u spell_order[32];        /* order spells learned/remembered/forgotten */
  998. X
  999. X/* Warriors don't have spells, so there is no entry for them.  Note that
  1000. X   this means you must always subtract one from the py.misc.pclass before
  1001. X   indexing into magic_spell[]. */
  1002. X#ifdef MACGAME
  1003. Xspell_type (*magic_spell)[31];
  1004. X#else
  1005. Xspell_type magic_spell[MAX_CLASS-1][31] = {
  1006. X  {          /* Mage       */
  1007. X     {    1,  1, 22,   1},
  1008. X     {    1,  1, 23,   1},
  1009. X     {    1,  2, 24,   1},
  1010. X     {    1,  2, 26,   1},
  1011. X     {    3,  3, 25,   2},
  1012. X     {    3,  3, 25,   1},
  1013. X     {    3,  3, 27,   2},
  1014. X     {    3,  4, 30,   1},
  1015. X     {    5,  4, 30,   6},
  1016. X     {    5,  5, 30,   8},
  1017. X     {    5,  5, 30,   5},
  1018. X     {    5,  5, 35,   6},
  1019. X     {    7,  6, 35,   9},
  1020. X     {    7,  6, 50,  10},
  1021. X     {    7,  6, 40,  12},
  1022. X     {    9,  7, 44,  19},
  1023. X     {    9,  7, 45,  19},
  1024. X     {    9,  7, 75,  22},
  1025. X     {    9,  7, 45,  19},
  1026. X     { 11,  7, 45,  25},
  1027. X     { 11,  7, 99,  19},
  1028. X     { 13,  7, 50,  22},
  1029. X     { 15,  9, 50,  25},
  1030. X     { 17,  9, 50,  31},
  1031. X     { 19, 12, 55,  38},
  1032. X     { 21, 12, 90,  44},
  1033. X     { 23, 12, 60,  50},
  1034. X     { 25, 12, 65,  63},
  1035. X     { 29, 18, 65,  88},
  1036. X     { 33, 21, 80, 125},
  1037. X     { 37, 25, 95, 200}
  1038. X   },
  1039. X   {          /* Priest       */
  1040. X     {    1,  1, 10,   1},
  1041. X     {    1,  2, 15,   1},
  1042. X     {    1,  2, 20,   1},
  1043. X     {    1,  2, 25,   1},
  1044. X     {    3,  2, 25,   1},
  1045. X     {    3,  3, 27,   2},
  1046. X     {    3,  3, 27,   2},
  1047. X     {    3,  3, 28,   3},
  1048. X     {    5,  4, 29,   4},
  1049. X     {    5,  4, 30,   5},
  1050. X     {    5,  4, 32,   5},
  1051. X     {    5,  5, 34,   5},
  1052. X     {    7,  5, 36,   6},
  1053. X     {    7,  5, 38,   7},
  1054. X     {    7,  6, 38,   9},
  1055. X     {    7,  7, 38,   9},
  1056. X     {    9,  6, 38,  10},
  1057. X     {    9,  7, 38,  10},
  1058. X     {    9,  7, 40,  10},
  1059. X     { 11,  8, 42,  10},
  1060. X     { 11,  8, 42,  12},
  1061. X     { 11,  9, 55,  15},
  1062. X     { 13, 10, 45,  15},
  1063. X     { 13, 11, 45,  16},
  1064. X     { 15, 12, 50,  20},
  1065. X     { 15, 14, 50,  22},
  1066. X     { 17, 14, 55,  32},
  1067. X     { 21, 16, 60,  38},
  1068. X     { 25, 20, 70,  75},
  1069. X     { 33, 24, 90, 125},
  1070. X     { 39, 32, 99, 200}
  1071. X   },
  1072. X   {          /* Rogue       */
  1073. X     { 99, 99,    0,   0},
  1074. X     {    5,  1, 50,   1},
  1075. X     {    7,  2, 55,   1},
  1076. X     {    9,  3, 60,   2},
  1077. X     { 11,  4, 65,   2},
  1078. X     { 13,  5, 70,   3},
  1079. X     { 99, 99,    0,   0},
  1080. X     { 15,  6, 75,   3},
  1081. X     { 99, 99,    0,   0},
  1082. X     { 17,  7, 80,   4},
  1083. X     { 19,  8, 85,   5},
  1084. X     { 21,  9, 90,   6},
  1085. X     { 99, 99,    0,   0},
  1086. X     { 23, 10, 95,   7},
  1087. X     { 99, 99,    0,   0},
  1088. X     { 99, 99,    0,   0},
  1089. X     { 25, 12, 95,   9},
  1090. X     { 27, 15, 99,  11},
  1091. X     { 99, 99,    0,   0},
  1092. X     { 99, 99,    0,   0},
  1093. X     { 29, 18, 99,  19},
  1094. X     { 99, 99,    0,   0},
  1095. X     { 99, 99,    0,   0},
  1096. X     { 99, 99,    0,   0},
  1097. X     { 99, 99,    0,   0},
  1098. X     { 99, 99,    0,   0},
  1099. X     { 99, 99,    0,   0},
  1100. X     { 99, 99,    0,   0},
  1101. X     { 99, 99,    0,   0},
  1102. X     { 99, 99,    0,   0},
  1103. X     { 99, 99,    0,   0},
  1104. X   },
  1105. X   {           /* Ranger        */
  1106. X     {    3,  1, 30,   1},
  1107. X     {    3,  2, 35,   2},
  1108. X     {    3,  2, 35,   2},
  1109. X     {    5,  3, 35,   2},
  1110. X     {    5,  3, 40,   2},
  1111. X     {    5,  4, 45,   3},
  1112. X     {    7,  5, 40,   6},
  1113. X     {    7,  6, 40,   5},
  1114. X     {    9,  7, 40,   7},
  1115. X     {    9,  8, 45,   8},
  1116. X     { 11,  8, 40,  10},
  1117. X     { 11,  9, 45,  10},
  1118. X     { 13, 10, 45,  12},
  1119. X     { 13, 11, 55,  13},
  1120. X     { 15, 12, 50,  15},
  1121. X     { 15, 13, 50,  15},
  1122. X     { 17, 17, 55,  15},
  1123. X     { 17, 17, 90,  17},
  1124. X     { 21, 17, 55,  17},
  1125. X     { 21, 19, 60,  18},
  1126. X     { 23, 25, 95,  20},
  1127. X     { 23, 20, 60,  20},
  1128. X     { 25, 20, 60,  20},
  1129. X     { 25, 21, 65,  20},
  1130. X     { 27, 21, 65,  22},
  1131. X     { 29, 23, 95,  23},
  1132. X     { 31, 25, 70,  25},
  1133. X     { 33, 25, 75,  38},
  1134. X     { 35, 25, 80,  50},
  1135. X     { 37, 30, 95, 100},
  1136. X     { 99, 99,    0,   0}
  1137. X   },
  1138. X   {          /* Paladin       */
  1139. X     {    1,  1, 30,   1},
  1140. X     {    2,  2, 35,   2},
  1141. X     {    3,  3, 35,   3},
  1142. X     {    5,  3, 35,   5},
  1143. X     {    5,  4, 35,   5},
  1144. X     {    7,  5, 40,   6},
  1145. X     {    7,  5, 40,   6},
  1146. X     {    9,  7, 40,   7},
  1147. X     {    9,  7, 40,   8},
  1148. X     {    9,  8, 40,   8},
  1149. X     { 11,  9, 40,  10},
  1150. X     { 11, 10, 45,  10},
  1151. X     { 11, 10, 45,  10},
  1152. X     { 13, 10, 45,  12},
  1153. X     { 13, 11, 45,  13},
  1154. X     { 15, 13, 45,  15},
  1155. X     { 15, 15, 50,  15},
  1156. X     { 17, 15, 50,  17},
  1157. X     { 17, 15, 50,  18},
  1158. X     { 19, 15, 50,  19},
  1159. X     { 19, 15, 50,  19},
  1160. X     { 21, 17, 50,  20},
  1161. X     { 23, 17, 50,  20},
  1162. X     { 25, 20, 50,  20},
  1163. X     { 27, 21, 50,  22},
  1164. X     { 29, 22, 50,  24},
  1165. X     { 31, 24, 60,  25},
  1166. X     { 33, 28, 60,  31},
  1167. X     { 35, 32, 70,  38},
  1168. X     { 37, 36, 90,  50},
  1169. X     { 39, 38, 95, 100}
  1170. X   }
  1171. X };
  1172. X#endif
  1173. X
  1174. Xchar *spell_names[62] = {
  1175. X  /* Mage Spells */
  1176. X  "Magic Missile",  "Detect Monsters",    "Phase Door",  "Light Area",
  1177. X  "Cure Light Wounds",    "Find Hidden Traps/Doors",  "Stinking Cloud",
  1178. X  "Confusion",    "Lightning Bolt",  "Trap/Door Destruction", "Sleep I",
  1179. X  "Cure Poison",  "Teleport Self",  "Remove Curse",  "Frost Bolt",
  1180. X  "Turn Stone to Mud",    "Create Food",    "Recharge Item I",  "Sleep II",
  1181. X  "Polymorph Other",  "Identify",  "Sleep III",     "Fire Bolt",  "Slow Monster",
  1182. X  "Frost Ball",     "Recharge Item II", "Teleport Other",    "Haste Self",
  1183. X  "Fire Ball", "Word of Destruction", "Genocide",
  1184. X  /* Priest Spells, start at index 31 */
  1185. X  "Detect Evil",  "Cure Light Wounds",    "Bless",  "Remove Fear", "Call Light",
  1186. X  "Find Traps",     "Detect Doors/Stairs",     "Slow Poison",     "Blind Creature",
  1187. X  "Portal",  "Cure Medium Wounds",  "Chant",  "Sanctuary",  "Create Food",
  1188. X  "Remove Curse",  "Resist Heat and Cold",  "Neutralize Poison",
  1189. X  "Orb of Draining",  "Cure Serious Wounds",  "Sense Invisible",
  1190. X  "Protection from Evil",  "Earthquake",  "Sense Surroundings",
  1191. X  "Cure Critical Wounds",  "Turn Undead",  "Prayer",  "Dispel Undead",
  1192. X  "Heal",  "Dispel Evil",  "Glyph of Warding",    "Holy Word"
  1193. X};
  1194. X
  1195. X/* Each type of character starts out with a few provisions.    */
  1196. X/* Note that the entries refer to elements of the object_list[] array*/
  1197. X/* 344 = Food Ration, 365 = Wooden Torch, 123 = Cloak, 30 = Stiletto,
  1198. X   103 = Soft Leather Armor, 318 = Beginners-Majik, 322 = Beginners Handbook */
  1199. Xint16u player_init[MAX_CLASS][5] = {
  1200. X        { 344, 365, 123,  30, 103},    /* Warrior     */
  1201. X        { 344, 365, 123,  30, 318},    /* Mage         */
  1202. X        { 344, 365, 123,  30, 322},    /* Priest     */
  1203. X        { 344, 365,  30, 103, 318},    /* Rogue     */
  1204. X        { 344, 365, 123,  30, 318},    /* Ranger     */
  1205. X        { 344, 365, 123,  30, 322}    /* Paladin     */
  1206. X};
  1207. END_OF_FILE
  1208. if test 19680 -ne `wc -c <'source/player.c'`; then
  1209.     echo shar: \"'source/player.c'\" unpacked with wrong size!
  1210. fi
  1211. # end of 'source/player.c'
  1212. fi
  1213. echo shar: End of archive 2 \(of 3\).
  1214. cp /dev/null ark2isdone
  1215. MISSING=""
  1216. for I in 1 2 3 ; do
  1217.     if test ! -f ark${I}isdone ; then
  1218.     MISSING="${MISSING} ${I}"
  1219.     fi
  1220. done
  1221. if test "${MISSING}" = "" ; then
  1222.     echo You have unpacked all 3 archives.
  1223.     echo "Please read the file NOTES01."
  1224.     rm -f ark[1-9]isdone
  1225. else
  1226.     echo You still need to unpack the following archives:
  1227.     echo "        " ${MISSING}
  1228. fi
  1229. ##  End of shell archive.
  1230. exit 0
  1231.